home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / BUDGET.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  595b  |  24 lines

  1. ' BUDGET.BAS
  2. ' This program helps you figure out how much money is
  3. '   left over after you've paid your monthly bills.
  4.  
  5. CLS
  6.  
  7. COLOR 2                 ' green foreground
  8. PRINT "Budget Calculator"
  9. COLOR 7                 ' restore default white foreground
  10. PRINT
  11. INPUT "Enter your total income for this month:  $", total!
  12. PRINT
  13. INPUT "How many bills will you have this month?  ", bills%
  14.  
  15. FOR i% = 1 TO bills%
  16.     PRINT "Enter expense #"; i%;
  17.     INPUT ":  $", thisExpense!
  18.     total! = total! - thisExpense!
  19. NEXT i%
  20.  
  21. PRINT
  22. PRINT "You have $"; total!; "left over this month."
  23.  
  24.